PROGRAM P
    VAR
        A : INT := 10;
        B : INT;
    END_VAR
    WHILE A > 0 DO
        B := B + 1;
        A := A - 1;
    END_WHILE
END_PROGRAM